home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
dev
/
lang
/
SmallEiffel.lha
/
SmallEiffel
/
lib_rand
/
demo3.e
< prev
next >
Wrap
Text File
|
1998-12-22
|
2KB
|
64 lines
-- This file is free software, which comes along with SmallEiffel. This
-- software is distributed in the hope that it will be useful, but WITHOUT
-- ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-- FITNESS FOR A PARTICULAR PURPOSE. You can modify it as you want, provided
-- this header is kept unaltered, and a notification of the changes is added.
-- You are allowed to redistribute it and sell it, alone or as a part of
-- another product.
-- Copyright (C) 1994-98 LORIA - UHP - CRIN - INRIA - FRANCE
-- Dominique COLNET and Suzanne COLLIN - colnet@loria.fr
-- http://www.loria.fr/SmallEiffel
--
class DEMO3
creation make
feature
make is
local
rand: GEN_RAND;
seed, count: INTEGER;
do
if argument_count < 2 then
io.put_string(
"Usage: demo <seed> <count> [min_stand|std_rand]%N%
%Examples :%N%
% demo 234 10 %N%
% demo 234 10 std_rand%N%
% demo 234 100 min_stand%N");
die_with_code(exit_failure_code);
end;
seed := argument(1).to_integer;
count := argument(2).to_integer;
if argument_count > 2 then
if argument(3).same_as("MIN_STAND") then
!MIN_STAND!rand.with_seed(seed);
io.put_string("Using MIN_STAND%N.");
else
!STD_RAND!rand.with_seed(seed);
io.put_string("Using STD_RAND%N.");
end;
else
!STD_RAND!rand.with_seed(seed);
io.put_string("Using default STD_RAND%N.");
end;
from
until
count = 0
loop
rand.next;
io.put_double(rand.last_double);
count := count - 1;
io.put_string("%N");
end;
end;
generators: ARRAY[STRING] is
once
Result := <<"MIN_STAND","STD_RAN">>;
end;
end -- DEMO3